home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / MyHelp2124908272008.psc / KB Builder / clsWindows.cls < prev    next >
Text File  |  2008-08-27  |  2KB  |  70 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsWindows"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17. 'local variable(s) to hold property value(s)
  18. Private mvarCollection As Collection
  19. Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
  20. Public Function ByHandle(Handle As String) As clsWindow
  21.     On Error Resume Next
  22.     Dim rsCnt As Long
  23.     Dim rsTot As Long
  24.     Dim myW As clsWindow
  25.     rsTot = mvarCollection.Count
  26.     For rsCnt = 1 To rsTot
  27.         Set myW = mvarCollection(rsCnt)
  28.         If Handle = myW.Handle Then
  29.             Set ByHandle = myW
  30.             Exit For
  31.         End If
  32.         Err.Clear
  33.     Next
  34.     Err.Clear
  35. End Function
  36. Public Function ByPosition(Position As Long) As clsWindow
  37.     On Error Resume Next
  38.     Set ByPosition = New clsWindow
  39.     Set ByPosition = mvarCollection(Position)
  40.     Err.Clear
  41. End Function
  42. Public Sub Add(ByVal strHandle As String, ByVal strClass As String, ByVal strTitle As String)
  43.     On Error Resume Next
  44.     Dim clsW As clsWindow
  45.     Set clsW = New clsWindow
  46.     strTitle = Trim$(strTitle)
  47.     strClass = Trim$(strClass)
  48.     If Len(strTitle) > 0 Then
  49.         strHandle = Format$(strHandle, "0000000000")
  50.         clsW.Class = strClass
  51.         clsW.Handle = strHandle
  52.         clsW.Parent = GetParent(Val(strHandle))
  53.         clsW.Title = strTitle
  54.         mvarCollection.Add clsW, strHandle
  55.     End If
  56.     Err.Clear
  57. End Sub
  58. Public Property Get Count() As Long
  59.     On Error Resume Next
  60.     'used when retrieving value of a property, on the right side of an assignment.
  61.     'Syntax: Debug.Print X.Count
  62.     Count = mvarCollection.Count
  63.     Err.Clear
  64. End Property
  65. Private Sub Class_Initialize()
  66.     On Error Resume Next
  67.     Set mvarCollection = New Collection
  68.     Err.Clear
  69. End Sub
  70.